Dim o As Variant

With o
	.MemberPropertyCall = "SomeValue"
	.MemberFunctionCall
End With

With New clsFoo
    .Display
End With